home *** CD-ROM | disk | FTP | other *** search
/ Brotikasten / BROTCD01.iso / games / dis434.d64 / blagger constr. (.txt) < prev    next >
Commodore BASIC  |  1995-07-31  |  949b  |  35 lines
  1. 10 POKE53280,5:POKE53281,7:PRINT"[147][144]LOADING!!"
  2. 20 IFPEEK(2)=0THENPOKE2,1:LOAD"BLA1",8,1
  3. 30 POKE45,180:POKE46,11:CLR
  4. 35 PRINT"[147] BLAGGER CONSTRUCTION SET"
  5. 36 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  6. 37 PRINT"BY 1701"
  7. 38 PRINT"[197][197][197][197][197][197][197]"
  8. 40 PRINT"(1)[146] PLAY BLAGGER"
  9. 50 PRINT"(2)[146] EDIT BLAGGER"
  10. 60 PRINT"(3)[146] LOAD LEVEL"
  11. 70 PRINT"(4)[146] EXIT"
  12. 80 POKE198,0:WAIT198,1:GETA$:IFA$="4"THENSYS64738
  13. 90 IFA$="1"THEN130
  14. 100 IFA$="2"THEN180
  15. 110 IFA$="3"THEN240
  16. 120 GOTO80    
  17. 130 PRINT"[147]LOADING!!"
  18. 140 PRINT"[158]LOAD"CHR$(34)"BLA4"CHR$(34)",8,1"
  19. 150 PRINT"NEW"
  20. 160 PRINT"LOAD"CHR$(34)"BLA2"CHR$(34)",8"
  21. 170 PRINT"SYS3000":GOTO500
  22. 180 PRINT"[147]LOADING!!"
  23. 190 PRINT"[158]LOAD"CHR$(34)"BLA5"CHR$(34)",8,1"
  24. 200 PRINT"NEW"
  25. 210 PRINT"LOAD"CHR$(34)"BLA3"CHR$(34)",8"
  26. 220 PRINT"RUN"
  27. 230 GOTO500
  28. 240 INPUT"[147]FILENAME =<16 TKN.";A$
  29. 250 L=LEN(A$):IFL>16ORL<1THEN240
  30. 260 PRINT"[147]LOADING!!"
  31. 270 PRINT"[158]LOAD"CHR$(34)A$CHR$(34)",8,1"
  32. 280 PRINT"RUN"
  33. 290 POKE631,19:POKE632,17:POKE633,13:POKE634,13:POKE635,13:POKE198,5:END
  34. 500 POKE631,19:POKE632,17:FORT=2TO9:POKE631+T,13:NEXT:POKE198,T:NEW
  35.